﻿Imports Logica

Public Class AsignarBonificacionGeneral

    Public m_idUsuario As String

    ''' <summary>
    ''' Constructor el cual resive un id del usuario
    ''' </summary>
    ''' <param name="p_idUsuario">Id del usuario</param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 13/06/2010, Modificado: 21/06/2010.</remarks>
    Public Sub New(ByVal p_idUsuario As String)
        InitializeComponent()
        m_idUsuario = p_idUsuario
    End Sub

    ''' <summary>
    ''' Realiza la asignación general
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 13/06/2010, Modificado: 21/06/2010.</remarks>
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim bonificacion As Integer
        If Not txtBonificacion.Text = "" Or txtBonificacion.Text.Trim = "" Then
            Try
                bonificacion = txtBonificacion.Text

                If bonificacion > 0 And bonificacion < 101 Then
                    If Not txtBonificacion.Text.Contains(",") And Not txtBonificacion.Text.Contains(".") Then

                        Gestor.asignarBonificacionGeneral(txtIdUsuario.Text, txtBonificacion.Text)
                        If MsgBox("La asignación de la bonificación se realizó con éxito", MsgBoxStyle.Information, "Asignación de bonificación metas") = MsgBoxResult.Ok Then
                            Me.Close()
                        End If
                        Me.Close()

                    Else
                        lblError.Visible = True
                        lblError.Text = "La bonificación no puede contener 'punto' ó 'coma' "
                    End If

                Else
                    lblError.Visible = True
                    lblError.Text = "Solo puede ingresar valores entre 1 y 100"
                End If
            Catch ex As Exception
                lblError.Visible = True
                lblError.Text = "Solo puede ingresar números"
            End Try
        Else
            lblError.Visible = True
            lblError.Text = "El campo 'bonificación' está vacío."
        End If
    End Sub

    ''' <summary>
    ''' Carga el id del usuario en el txtIdUsuario
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 13/06/2010, Modificado: 21/06/2010.</remarks>
    Private Sub AsignarBonificacionGeneral_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtIdUsuario.Text = m_idUsuario
    End Sub

End Class
